Card Guppies 1-0/GUPPIES.SDL
5.6 KB
757754e285de3977…
Medit Compatible: OFF
;
;***** ANSI Code Equates
;
Equate: Cpos = ^[[%1;%2H
Equate: Black = ^[[0;30m
Equate: Red = ^[[0;31m
Equate: BrtYel = ^[[1;33m
Equate: BlkScrn = ^[[40m
Equate: CyaScrn = ^[[46m
Equate: WhtScrn = ^[[47m
Equate: CommandWht = ^[[25;1H^[[0;30;47m^[[0K^[[1A^[[0K^[[1A^[[0K^[[1A
Equate: CommandCya = ^[[25;1H^[[1;37;46m^[[0K^[[1A^[[0K^[[1A^[[0K^[[1A
Equate: Highlight3 = ^[[13;15H+^[[13;56H-^[[14;21HQ^[[14;32H@@^[[14;43H#^[[14;54H!
;
;
;***** Drive and Path to where the Game Files
;
; **********************************************************************
; * Edit: 'GamePath = D:\GAME\' to change D:\GAME\ to where you want *
; * to place all of the .TPG, .DBF, and .NDX files. *
; **********************************************************************
;
Equate: GamePath = D:\GAME\
;
;
;***** Authorization Macros, Macro Names represent Classes of Users
;
; **********************************************************************
; * Edit: The following macros to fit the Priv and Auth flags you *
; * currently use. *
; **********************************************************************
;
Macro: NullUser
Priv= 0 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
Macro: AnyUser
Priv= 25 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
Macro: NormalUser
Priv= 30 A1=-------- A2=-------- A3=-------- A4=-------- ANS=- IBM=-
Macro: Sysop
Priv= 200 A1=-------X A2=-------- A3=-------- A4=-------- ANS=- IBM=-
EndMacro:
;
;
;***** General "End of Sub-Menu" repeating entries Macro
;
Macro: AllMenus
@NullUser
Key=+ Type=12 Opt Data=0
Entry:
@NullUser
Key=- Type=12 Opt Data=1
Entry:
@Sysop
Key=Q Type=10
Entry:
@NullUser
Key=Q Type=5 Opt Data=9999
Entry:
@NullUser
Key=@@ Type=11
; **********************************************************************
; * Edit: The following Entry to fit your system or remove if you *
; * do not currently use a help menu. Also be sure to remove *
; * the '#' from HighLight Macro. *
; **********************************************************************
;
;Entry:
;@NullUser
;Key=# Type=5 Opt Data=0010
;
Entry:
@NullUser
Key=! Type=23
EndMacro:
Macro: Box3
@Cpos(6,12)@Black+@CyaScrn+╒═══════════════════════════════════════════════════════╕
@Cpos(7,12)│ │@BlkScrn+ @CyaScrn
@Cpos(8,12)│ │@BlkScrn+ @CyaScrn
@Cpos(9,12)│ │@BlkScrn+ @CyaScrn
@Cpos(10,12)│ │@BlkScrn+ @CyaScrn
@Cpos(11,12)│ │@BlkScrn+ @CyaScrn
@Cpos(12,12)╞═══════════════════════════════════════════════════════╡@BlkScrn+ @CyaScrn
@Cpos(13,12)│ [+]Main Menu [-]Last Menu │@BlkScrn+ @CyaScrn
@Cpos(14,12)│ [Q]Quit [@@]Time [#]Help [!]Sysop │@BlkScrn+ @CyaScrn
@Cpos(15,12)╘═══════════════════════════════════════════════════════╛@BlkScrn+ @CyaScrn
@Cpos(16,14)@BlkScrn @CyaScrn
ANS=X
EndMacro:
Macro: Box9
@Black+@WhtScrn+@Cpos(12,26)╒══════ Log Off System ══════╕
@Cpos(13,26)│ │@BlkScrn+ @WhtScrn
@Cpos(14,26)│ │@BlkScrn+ @WhtScrn
@Cpos(15,26)│ │@BlkScrn+ @WhtScrn
@Cpos(16,26)╘════════════════════════════╛@BlkScrn+ @WhtScrn
@Cpos(17,28)@BlkScrn @WhtScrn
ANS=X
EndMacro:
;
;
;***** Define Menu GUPPIES
;
; **********************************************************************
; * Edit: 'Menu: GUPY' to change GUPY to what ever you want. This is *
; * what you put in OPT DATA= in the menu that will call this *
; * menu. *
; **********************************************************************
;
Menu: GUPY
Entry:
@Box3
Entry:
@Black@WhtScrn@Cpos(6,34) Card Guppies @Black@CyaScrn
ANS=X
Entry:
^NCard Guppies
------------
[+]Main Menu [-]Last Menu [Q]Quit [@@]Time [#]Help [!]Sysop
ANS=.
Entry:
@Cpos(7,14)P> Play Card Guppies
@AnyUser
KEY=P TYPE=200 Opt Data=@GamePath+GUPPIES/Q
Entry:
@Cpos(7,48)E> Edit Player Data
@Sysop
KEY=E TYPE=200 Opt Data=@GamePath+GUPED/Q
Entry:
@Cpos(8,14)1> High Scores This month
@AnyUser
KEY=1 TYPE=1 Opt Data=@GamePath+GUPPIES.TXT
Entry:
@Cpos(9,14)2> High Scores Last Month
@AnyUser
KEY=2 TYPE=1 Opt Data=@GamePath+GUPPIEL.TXT
Entry:
@Cpos(10,14)3> Top Players
@AnyUser
KEY=3 TYPE=1 Opt Data=@GamePath+GUPPIEH.TXT
Entry:
@BrtYel@CyaScrn@Cpos(7,14)P
@NormalUser
ANS=X
Entry:
@BrtYel@CyaScrn@Cpos(7,48)E
@Sysop
ANS=X
Entry:
@Cpos(8,14)1@Cpos(9,14)2@Cpos(10,14)3
@AnyUser
ANS=X
Entry:
@Highlight3@CommandCya
ANS=X
Entry:
@AllMenus
EndMenu:
;
;
;***** Define Menu 9999
;
Menu: 9999
Entry:
@Box9
Entry:
Log Off System
--------------
ANS=.
Entry:
@Cpos(13,28)C>omment - Leave message
KEY=C TYPE=7 Opt Data=MSG TO SYSOP
Entry:
@Cpos(14,28)R>eturn To Previous Menu
KEY=R TYPE=12 Opt Data=1
Entry:
@Cpos(15,28)Q>uit - Log off
KEY=Q TYPE=10
Entry:
KEY=Y TYPE=7 Opt Data=MSG TO SYSOP
Entry:
KEY=N TYPE=10
Entry:
@Red+@WhtScrn+@Cpos(13,28)C@Cpos(14,28)R@Cpos(15,28)Q
@CommandWht
ANS=X
EndMenu: